home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / wb / DopusOnlineRx.lha / rexx / ofl.rexx < prev   
OS/2 REXX Batch file  |  2002-05-28  |  343b  |  20 lines
  1. /* offline */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. IF SHOW('P','AmisatAppIcon.DOPUS.1') THEN DO
  6.     say "Quitting Amisat"
  7.     ADDRESS 'AmisatAppIcon.DOPUS.1' 'close'
  8.  
  9. END
  10.  
  11. IF SHOW('P','CharonAppIcon.DOPUS.1') THEN DO
  12.     say "Quitting charon"
  13.     ADDRESS 'CharonAppIcon.DOPUS.1' 'close'
  14. END
  15.  
  16. IF SHOW('P','RC-FTPD.1') THEN DO
  17.     Address 'RC-FTPD.1'
  18.     QUIT
  19. END
  20.